home *** CD-ROM | disk | FTP | other *** search
/ Get a Grip Tennis by Wilson / Get a Grip Tennis by Wilson.iso / pc / wilson.dxr / Internal_18_intro audio controller.ls < prev    next >
Encoding:
Text File  |  2003-08-12  |  669 b   |  31 lines
  1. property pSprite, pMember, pFlag, pAudio, pCounter, pFlag2
  2.  
  3. on beginSprite me
  4.   pSprite = sprite(me.spriteNum)
  5.   pMember = member(pSprite.member)
  6.   pFlag = 0
  7.   pCounter = 0
  8.   pFlag2 = 0
  9. end
  10.  
  11. on exitFrame me
  12.   if (pFlag2 = 0) and (pMember.mediaReady = 1) then
  13.     puppetSound(1, pAudio)
  14.     pFlag2 = 1
  15.   end if
  16.   if (pFlag = 0) and (sound(1).status = 0) and (pFlag2 = 1) then
  17.     if pCounter = 10 then
  18.       pSprite.movieRate = 1
  19.       pFlag = 1
  20.     else
  21.       pCounter = pCounter + 1
  22.     end if
  23.   end if
  24. end
  25.  
  26. on getPropertyDescriptionList me
  27.   pList = [:]
  28.   addProp(pList, #pAudio, [#comment: "TWhich Audio Clip:", #format: #sound, #default: #none])
  29.   return pList
  30. end
  31.